 
 FOR EACH acf_mstr:                                                         
     CREATE xu8if_det.
       ASSIGN 
           xu8if_acct =   substring(acf_acct,1,4) 
           xu8if_sub  =   substring(acf_acct,6,LENGTH(acf_acct))
           xu8if_vend =   acf_vend
           xu8if_invo =   acf_ref
           xu8if_u8acc  = acf_u8ac
           xu8if__chr01 = acf_user1.
 END.                                                                       

FOR EACH xu8if_det:
    DISP xu8if_acct xu8if_sub xu8if_cc xu8if_proj xu8if_cust xu8if_vend
         xu8if_invo xu8if_u8dept xu8if_u8acc xu8if__chr01 xu8if__chr02.
END.
